Function CleanInput(value) If IsNull(value) Then CleanInput = "" Else value = Trim(value) If IsNumeric(value) Then CleanInput = value ' Als Zahl zurΓΌckgeben Else value = Replace(value, "<", "<") value = Replace(value, ">", ">") value = Replace(value, """", "") value = Replace(value, "'", "'") CleanInput = value End If End If End Function